10 REM**************
20 REM*  SAVE ALL  *
30 REM**************
100 FOR I=870TO924:READX:POKEI,X:T=T+X:NEXT
110 IF T<>5940 THEN PRINT"DATA ERROR": END
120 DATA 32,212,225,32,253,174,32,138,173,32,247,183,165,20,72,165,21,72,32,253
130 DATA 174,32,138,173,32,247,183,165,1,41,254,133,1,166,20,164,21,104,133,21
140 DATA 104,133,20,169,20,32,95,225,165,1,9,1,133,1,96